home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / Aliases / aliases.Ada < prev    next >
Text File  |  1995-07-16  |  2KB  |  41 lines
  1. #
  2. # Raymond Waldrop <rwaldrop@cs.tamu.edu>
  3. # aliases for Ada mode
  4. #
  5.     electricAlias-def ÑAda ÑAda ÑAda
  6.     electricAlias-var Ada bb ""
  7.     electricAlias-var Ada eb ""
  8.     electricAlias-var Ada bc "--"
  9.     electricAlias-var Ada ec ""
  10.     electricAlias-def ÑAda beg "\bbegin\rÑ"
  11.     electricAlias-def ÑAda begin "\bbegin\rÑ"
  12.     electricAlias-def ÑAda case "case Ñ is\r\t\tÑ\rend case;\r~"
  13.     electricAlias-def ÑAda endif "\bend if;\r\bÑ"
  14.     electricAlias-def ÑAda end "\bend Ñ"
  15.     electricAlias-def ÑAda entry "entry Ñ\r  (Ñ)\r\twhen Ñ is\r\tÑ\rend Ñ;"
  16.     electricAlias-def ÑAda for "for Ñ in Ñ loop\r\tÑ\rend loop;\r~"
  17.     electricAlias-def ÑAda func "function Ñ return Ñ is\r\tÑ\rbegin\r\tÑ\rend Ñ;\r~"
  18.     electricAlias-def ÑAda function "function Ñ return Ñ is\r\tÑ\rbegin\r\tÑ\rend Ñ;\r~"
  19.     electricAlias-def ÑAda gen "generic\r\tÑ\r~"
  20.     electricAlias-def ÑAda generic "generic\r\tÑ\r~"
  21.     electricAlias-def ÑAda if "if Ñ then \r\tÑ\rend if;\r~"
  22.     electricAlias-def ÑAda loop "loop\r\tÑ\r\end loop;\r~"
  23.     electricAlias-def ÑAda or "\bor\rÑ"
  24.     electricAlias-def ÑAda pack "package Ñ is\r\tÑ\rend Ñ;\r~"
  25.     electricAlias-def ÑAda package "package Ñ is\r\tÑ\rend Ñ;\r~"
  26.     electricAlias-def ÑAda private "\bprivate\rÑ"
  27.     electricAlias-def ÑAda proc "procedure Ñ is \r\tÑ \rbegin\r\tÑ\rend Ñ;\r~"
  28.     electricAlias-def ÑAda procedure "procedure Ñ is \r\tÑ \rbegin\r\tÑ\rend Ñ;\r~"
  29.     electricAlias-def ÑAda prot "protected Ñ is\r\tÑ\rend Ñ;\r~"
  30.     electricAlias-def ÑAda protected "protected Ñ is\r\tÑ\rend Ñ;\r~"
  31.     electricAlias-def Ada rci "Remote_Call_Interface"
  32.     electricAlias-def ÑAda sel "select\r\tÑ\rend select;\r~"
  33.     electricAlias-def ÑAda select "select\r\tÑ\rend select;\r~"
  34.     electricAlias-def ÑAda sub "subtype Ñ is Ñ"
  35.     electricAlias-def ÑAda subtype "subtype Ñ is Ñ"
  36.     electricAlias-def ÑAda task "task Ñ is\r\tÑ\rend Ñ;\r~"
  37.     electricAlias-def ÑAda thab "\bthen abort\rÑ"
  38.     electricAlias-def ÑAda type "type Ñ is Ñ"
  39.     electricAlias-def ÑAda when "\bwhen Ñ =>\rÑ"
  40.     electricAlias-def ÑAda while "while Ñ loop\r\tÑ\r\end loop;\r~"
  41.